perm filename OPT.F4[P11,LCS] blob sn#418013 filedate 1979-04-10 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	 	SUBROUTINE OPT(L,M,NSAM)
C00003 ENDMK
CāŠ—;
 	SUBROUTINE OPT(L,M,NSAM)
 	DIMENSION L(1),M(1)     
 	COMMON /GENS/GENS(1)/LFUNC/LFUNC,XNFUN
	1/NT/RNT(1)/ROUT/ROUT(1)
C THIS IS A DUMMY ROUTINE     OPT Pm Pn Bn;  doubles value of Bn
	J1=L(3)
C L(3) MEANS LOOK AT 3RD FIELD OF 'OPT'
	J2=J1+NSAM-1
	DO 1 K=J1,J2   
1	ROUT(K)=ROUT(K)*2
	RETURN
	END